home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Games of Daze
/
Infomagic - Games of Daze (Summer 1995) (Disc 2 of 2).iso
/
cheats
/
eq_new
/
def
/
magic.bak
< prev
next >
Wrap
Text File
|
1995-03-11
|
3KB
|
152 lines
// This file is (C) 1994 - GLENN HANCOCK
DEFTITLE("Master of Magic");
DIR("C:\mps\magic");
PROGRAM("MAGIC");
REGISTEREDONLY;
UNIQUE("INSTALL.EXE;INSTALL.GIF;MPSCOPY.EXE;CONFIG.MOM;BOOK.LBX");
DISKSOURCE;
CDSOURCE;
GLENN;
SOURCEVERSION('100');
BACKGROUND("ABST2.BGP");
STRING FN;
INT D,N,R;
(*----------------------------------------------------------------*)
PROC Money;
FN := $(R);
FREEFIELD("How Much Gold Would You Like?");
Name(FN,3390,T_WORD);
RANGE(0,32767);
INC(100);
ENDFREEFIELD;
ENDPROC; // Money
(*----------------------------------------------------------------*)
PROC Mana;
FN := $(R);
FREEFIELD("How Much Mana Would You Like?");
Name(FN,3140,T_WORD);
RANGE(0,32767);
INC(100);
ENDFREEFIELD;
ENDPROC; // Mana
(*----------------------------------------------------------------*)
PAGE(1);
D := 0;
N := GetFileList($(100),"*.gam");
R := 100;
FIELDSTART(100);
IF (N>0)
List('Choose A SaveGame to Edit:');
VAR(R);
while D<N
D:=D+1;
Assign(99+D,$(99+D));
endwhile;
EndList;
ENDIF;
IF (N=0)
MESSAGE('There are no SaveGames in your Master of Magic',
'Directory. Please Play MOM and Save',
'Your Game in the Magic Directory.',
'Then Return And Use The Equalizer.');
Quit;
ENDIF;
BUTTON("Edit Money"," ",Money);
BUTTON("Edit Mana"," ",Mana);
ENDPAGE; // 1
{
PAGE(2);
STRING CityName;
INT D,B,S,T,A;
D:=27;
IF (READNUM(37666,T_BYTE))=99 THEN D:=19;
IF (READNUM(36640,T_BYTE))=99 THEN D:=9;
B:=0;
S:=35386;
While B<D
S:=(S+114);
$(101+B) := ReadStr(S,T_C);
B:=(B+1);
EndWhile;
T:=0;
A:=0;
FREELIST( 'Select a Town to Edit:');
VAR(T);
While A<D
Assign(A,$(101+A));
A := (A+1);
EndWhile;
ENDFREELIST;
CityName := READSTR(35500+(T*114),T_C);
SETTITLE( 'Editing City: '+CityName+''));
A:=0;
FIELD( "Population");
NAME(FN,(35500+(T*114)+20),T_BYTE);
RANGE(0,255);
ENDFIELD;
EndPage; // 2
}
ABOUT
^4^*^UMaster of Magic^U
This role playing/strategy game is a cross
between Civilization and a magical strategy
game. In it you explore the countryside and
build up your empire, then learn magic to
defend it from your enemies.
Features of this DEFinition include:
-Raising your money to over 32,000.
-Raising your mana to over 32,000.
^4Copyright Simtek Software,1994
^4All rights reserved
^U
^P"YSSgh.PCC"
ENDABOUT;
DIALOG("HLP");
ENDDIALOG;